﻿Public Class ColorClass
    Public Background As Color
    Public TextBoxBackColor As Color
    Public TextBoxForeColor As Color
    Public ListTitle As Color
    Public ListDescription As Color
    Public ListBackColor As Color
    Public SelectedListTitle As Color
    Public SelectedListDescription As Color
    Public SelectedBackColor As Color

    Sub New()
        SetThemes("light")
    End Sub

    Public Sub SetThemes(strThemes As String)
        Select Case strThemes
            Case "light"
                Background = SystemColors.Control
                TextBoxBackColor = Color.White
                TextBoxForeColor = Color.FromArgb(255, 35, 35, 35)
                ListTitle = Color.FromArgb(255, 35, 35, 35)
                ListDescription = Color.SlateGray
                ListBackColor = Color.White
                SelectedListTitle = Color.FromArgb(255, 35, 35, 35)
                SelectedListDescription = Color.SlateGray
                SelectedBackColor = Color.FromArgb(255, 144, 192, 230)
            Case "dark"
                Background = Color.FromArgb(255, 38, 38, 38)
                TextBoxBackColor = Color.FromArgb(255, 51, 51, 51)
                TextBoxForeColor = Color.Gainsboro
                ListTitle = Color.Gainsboro
                ListDescription = Color.DarkGray
                ListBackColor = Color.FromArgb(255, 51, 51, 51)
                SelectedListTitle = Color.Gainsboro
                SelectedListDescription = Color.DarkGray
                SelectedBackColor = Color.FromArgb(255, 102, 102, 102)
        End Select
    End Sub
End Class
